;=========================================================================
;
;  Copyright OSEHRA
;
;  Licensed under the Apache License, Version 2.0 (the "License")
;  you may not use this file except in compliance with the License.
;  You may obtain a copy of the License at
;
;         http://www.apache.org/licenses/LICENSE-2.0.txt
;
;  Unless required by applicable law or agreed to in writing, software
;  distributed under the License is distributed on an "AS IS" BASIS,
;  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;  See the License for the specific language governing permissions and
;  limitations under the License.
;
;=========================================================================*/

gtm011 ; compute a Fibonacci series

 set getValue="Initially empty"
 set termnumber=100

 for k=1:1 do  quit:k>1000
 . set ^FibonacciA=1
 . set ^FibonacciB=1
 . for i=1:1 do  quit:i>termnumber
 . . set ^FibonacciValue=^FibonacciA+^FibonacciB
 . . set ^FibonacciB=^FibonacciA
 . . set ^FibonacciA=^FibonacciValue
 . set getValue=^FibonacciValue

 write "Fibonacci term ",termnumber," = ",getValue,!

 kill ^FibonacciA
 kill ^FibonacciB
 kill ^FibonacciValue

